home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / djip / djip.ctl next >
Text File  |  1999-09-06  |  13KB  |  412 lines
  1. VERSION 5.00
  2. Begin VB.UserControl DJIp 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    BorderStyle     =   1  'Fixed Single
  6.    ClientHeight    =   465
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   2070
  10.    LockControls    =   -1  'True
  11.    ScaleHeight     =   465
  12.    ScaleWidth      =   2070
  13.    ToolboxBitmap   =   "DJIp.ctx":0000
  14.    Begin VB.Frame Frame1 
  15.       Appearance      =   0  'Flat
  16.       BackColor       =   &H80000005&
  17.       BorderStyle     =   0  'None
  18.       Caption         =   "Frame1"
  19.       ForeColor       =   &H80000008&
  20.       Height          =   240
  21.       Left            =   50
  22.       TabIndex        =   0
  23.       Top             =   50
  24.       Width           =   1845
  25.       Begin VB.TextBox txtOctet 
  26.          Alignment       =   2  'Center
  27.          Appearance      =   0  'Flat
  28.          BorderStyle     =   0  'None
  29.          BeginProperty Font 
  30.             Name            =   "MS Sans Serif"
  31.             Size            =   9.75
  32.             Charset         =   0
  33.             Weight          =   700
  34.             Underline       =   0   'False
  35.             Italic          =   0   'False
  36.             Strikethrough   =   0   'False
  37.          EndProperty
  38.          Height          =   240
  39.          Index           =   1
  40.          Left            =   15
  41.          TabIndex        =   1
  42.          Text            =   "255"
  43.          Top             =   0
  44.          Width           =   375
  45.       End
  46.       Begin VB.TextBox txtOctet 
  47.          Alignment       =   2  'Center
  48.          Appearance      =   0  'Flat
  49.          BorderStyle     =   0  'None
  50.          BeginProperty Font 
  51.             Name            =   "MS Sans Serif"
  52.             Size            =   9.75
  53.             Charset         =   0
  54.             Weight          =   700
  55.             Underline       =   0   'False
  56.             Italic          =   0   'False
  57.             Strikethrough   =   0   'False
  58.          EndProperty
  59.          Height          =   240
  60.          Index           =   2
  61.          Left            =   495
  62.          TabIndex        =   2
  63.          Text            =   "255"
  64.          Top             =   0
  65.          Width           =   375
  66.       End
  67.       Begin VB.TextBox txtOctet 
  68.          Alignment       =   2  'Center
  69.          Appearance      =   0  'Flat
  70.          BorderStyle     =   0  'None
  71.          BeginProperty Font 
  72.             Name            =   "MS Sans Serif"
  73.             Size            =   9.75
  74.             Charset         =   0
  75.             Weight          =   700
  76.             Underline       =   0   'False
  77.             Italic          =   0   'False
  78.             Strikethrough   =   0   'False
  79.          EndProperty
  80.          Height          =   240
  81.          Index           =   3
  82.          Left            =   975
  83.          TabIndex        =   3
  84.          Text            =   "255"
  85.          Top             =   0
  86.          Width           =   375
  87.       End
  88.       Begin VB.TextBox txtOctet 
  89.          Alignment       =   2  'Center
  90.          Appearance      =   0  'Flat
  91.          BorderStyle     =   0  'None
  92.          BeginProperty Font 
  93.             Name            =   "MS Sans Serif"
  94.             Size            =   9.75
  95.             Charset         =   0
  96.             Weight          =   700
  97.             Underline       =   0   'False
  98.             Italic          =   0   'False
  99.             Strikethrough   =   0   'False
  100.          EndProperty
  101.          Height          =   240
  102.          Index           =   4
  103.          Left            =   1455
  104.          TabIndex        =   4
  105.          Text            =   "255"
  106.          Top             =   0
  107.          Width           =   375
  108.       End
  109.       Begin VB.Label lblDot 
  110.          Appearance      =   0  'Flat
  111.          AutoSize        =   -1  'True
  112.          BackColor       =   &H80000005&
  113.          Caption         =   "."
  114.          BeginProperty Font 
  115.             Name            =   "MS Sans Serif"
  116.             Size            =   13.5
  117.             Charset         =   0
  118.             Weight          =   700
  119.             Underline       =   0   'False
  120.             Italic          =   0   'False
  121.             Strikethrough   =   0   'False
  122.          EndProperty
  123.          ForeColor       =   &H80000008&
  124.          Height          =   345
  125.          Index           =   1
  126.          Left            =   390
  127.          TabIndex        =   7
  128.          Top             =   -90
  129.          Width           =   105
  130.       End
  131.       Begin VB.Label lblDot 
  132.          Appearance      =   0  'Flat
  133.          AutoSize        =   -1  'True
  134.          BackColor       =   &H80000005&
  135.          Caption         =   "."
  136.          BeginProperty Font 
  137.             Name            =   "MS Sans Serif"
  138.             Size            =   13.5
  139.             Charset         =   0
  140.             Weight          =   700
  141.             Underline       =   0   'False
  142.             Italic          =   0   'False
  143.             Strikethrough   =   0   'False
  144.          EndProperty
  145.          ForeColor       =   &H80000008&
  146.          Height          =   345
  147.          Index           =   2
  148.          Left            =   870
  149.          TabIndex        =   6
  150.          Top             =   -90
  151.          Width           =   105
  152.       End
  153.       Begin VB.Label lblDot 
  154.          Appearance      =   0  'Flat
  155.          AutoSize        =   -1  'True
  156.          BackColor       =   &H80000005&
  157.          Caption         =   "."
  158.          BeginProperty Font 
  159.             Name            =   "MS Sans Serif"
  160.             Size            =   13.5
  161.             Charset         =   0
  162.             Weight          =   700
  163.             Underline       =   0   'False
  164.             Italic          =   0   'False
  165.             Strikethrough   =   0   'False
  166.          EndProperty
  167.          ForeColor       =   &H80000008&
  168.          Height          =   345
  169.          Index           =   3
  170.          Left            =   1350
  171.          TabIndex        =   5
  172.          Top             =   -90
  173.          Width           =   105
  174.       End
  175.    End
  176. End
  177. Attribute VB_Name = "DJIp"
  178. Attribute VB_GlobalNameSpace = False
  179. Attribute VB_Creatable = True
  180. Attribute VB_PredeclaredId = False
  181. Attribute VB_Exposed = False
  182. Option Explicit
  183. Option Base 1
  184. Enum ipBorder
  185.   ccNone = 0
  186.   ccFixedSingle = 1
  187. End Enum
  188. Enum AppearanceStyle
  189.   ccFlat = 0
  190.   cc3D = 1
  191. End Enum
  192. Private m_BackColor As OLE_COLOR
  193. Private m_ForeColor As OLE_COLOR
  194. Private m_ValidIp As Boolean
  195.  
  196. 'Event Declarations:
  197. Event Click()
  198. Attribute Click.VB_Description = "Occurs when the user presses and then releases a mouse button over an object."
  199. Event Change()
  200. Attribute Change.VB_Description = "Occurs when the contents of a control have changed."
  201.  
  202.  
  203. Public Property Get BackColor() As OLE_COLOR
  204. Attribute BackColor.VB_Description = "Returns/sets the background color used to display text and graphics in an object."
  205.   BackColor = m_BackColor
  206. End Property
  207.  
  208. Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
  209.   Dim intX As Integer
  210.   Dim intC As Integer
  211.   
  212.   intC = txtOctet.Count
  213.   For intX = 1 To intC
  214.     txtOctet(intX).BackColor() = New_BackColor
  215.     If intX < intC Then lblDot(intX).BackColor = New_BackColor
  216.   Next
  217.   m_BackColor = New_BackColor
  218.   PropertyChanged "BackColor"
  219. End Property
  220.  
  221. Public Property Get ForeColor() As OLE_COLOR
  222. Attribute ForeColor.VB_Description = "Returns/sets the foreground color used to display text and graphics in an object."
  223.   ForeColor = m_ForeColor
  224. End Property
  225.  
  226. Public Property Let ForeColor(ByVal New_ForeColor As OLE_COLOR)
  227.   Dim intX As Integer
  228.   Dim intC As Integer
  229.   
  230.   intC = txtOctet.Count
  231.   For intX = 1 To intC
  232.     txtOctet(intX).ForeColor() = New_ForeColor
  233.     If intX < intC Then lblDot(intX).ForeColor = New_ForeColor
  234.   Next
  235.   m_ForeColor = New_ForeColor
  236.   PropertyChanged "ForeColor"
  237. End Property
  238.  
  239. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  240. 'MappingInfo=UserControl,UserControl,-1,Enabled
  241. Public Property Get Enabled() As Boolean
  242. Attribute Enabled.VB_Description = " Returns/sets a value that determines whether an object can respond to user-generated events."
  243.   Enab